home *** CD-ROM | disk | FTP | other *** search
/ NOVA - For the NeXT Workstation / NOVA - For the NeXT Workstation.iso / SourceCode / AdobeExamples / NX_Clock / ClockViewWraps.psw < prev    next >
Encoding:
Text File  |  1992-12-19  |  2.9 KB  |  100 lines
  1.  
  2. /*
  3.  * (a)  (C) 1990 by Adobe Systems Incorporated. All rights reserved.
  4.  *
  5.  * (b)  If this Sample Code is distributed as part of the Display PostScript
  6.  *    System Software Development Kit from Adobe Systems Incorporated,
  7.  *    then this copy is designated as Development Software and its use is
  8.  *    subject to the terms of the License Agreement attached to such Kit.
  9.  *
  10.  * (c)  If this Sample Code is distributed independently, then the following
  11.  *    terms apply:
  12.  *
  13.  * (d)  This file may be freely copied and redistributed as long as:
  14.  *    1) Parts (a), (d), (e) and (f) continue to be included in the file,
  15.  *    2) If the file has been modified in any way, a notice of such
  16.  *      modification is conspicuously indicated.
  17.  *
  18.  * (e)  PostScript, Display PostScript, and Adobe are registered trademarks of
  19.  *    Adobe Systems Incorporated.
  20.  * 
  21.  * (f) THE INFORMATION BELOW IS FURNISHED AS IS, IS SUBJECT TO
  22.  *    CHANGE WITHOUT NOTICE, AND SHOULD NOT BE CONSTRUED
  23.  *    AS A COMMITMENT BY ADOBE SYSTEMS INCORPORATED.
  24.  *    ADOBE SYSTEMS INCORPORATED ASSUMES NO RESPONSIBILITY
  25.  *    OR LIABILITY FOR ANY ERRORS OR INACCURACIES, MAKES NO
  26.  *    WARRANTY OF ANY KIND (EXPRESS, IMPLIED OR STATUTORY)
  27.  *    WITH RESPECT TO THIS INFORMATION, AND EXPRESSLY
  28.  *    DISCLAIMS ANY AND ALL WARRANTIES OF MERCHANTABILITY, 
  29.  *    FITNESS FOR PARTICULAR PURPOSES AND NONINFRINGEMENT
  30.  *    OF THIRD PARTY RIGHTS.
  31.  */
  32.  
  33. /*
  34. *    ClockViewWraps.psw
  35.  *
  36.  *    Version:    2.0
  37.  *    Author:    Ken Fromm
  38.  *    History:
  39.  *            03-07-91        Added this comment.
  40. */
  41.  
  42. /* StartTime is stored in the interpreter and contains the initial real time    */                                            
  43. defineps PSWMarkTime ()
  44.     /StartTime realtime def
  45. endps
  46.  
  47. /* The difference between the current real time and the initial time stored                */
  48. /* in StartTime is returned to the calling procedure in the output arg ElapsedTime. */
  49. defineps PSWReturnTime (|int *ElapsedTime)
  50.     realtime StartTime sub 
  51.     ElapsedTime
  52. endps
  53.  
  54. defineps PSWEraseView (float BGColor, X, Y, W, H)
  55.     BGColor setgray X Y W H rectfill
  56. endps
  57.  
  58. defineps PSWMakeCircle (float X, Y, Rad)
  59.     X Rad add Y moveto  X Y Rad 0 360 arc
  60. endps
  61.  
  62. defineps PSWFillPath (float Color)
  63.     Color  setgray fill
  64. endps
  65.  
  66. defineps PSWSetUpath (float Pts[Tot_Pts]; int Tot_Pts;
  67.                     char Ops[Tot_Ops]; int Tot_Ops)
  68.     [Pts (Ops)]
  69. endps
  70.  
  71. defineps PSWSetGstate (float X, Y, Gray, Linewidth)
  72.     newpath X Y translate Gray setgray Linewidth setlinewidth
  73. endps
  74.  
  75. defineps PSWInstallGstate(userobject GState;  float Angle)
  76.     GState setgstate
  77.     Angle rotate
  78. endps
  79.  
  80. defineps PSWUpathStrokeFill(userobject UPath)
  81.     UPath dup ustroke
  82.     currentgray 0.2 add setgray
  83.     ufill
  84. endps
  85.  
  86. defineps PSWUpathFill(userobject UPath)
  87.     UPath ufill
  88. endps
  89.  
  90. defineps PSWDrawCircle(float Color)
  91.     Color setgray
  92.     newpath 0 0 10 0 360 arc stroke
  93. endps
  94.  
  95. defineps PSWHitPath(userobject UPath1, UPath2; float  HPts[Tot_HPts]; int Tot_HPts;
  96.     char HOps[Tot_HOps]; int Tot_HOps; | boolean *Hit)
  97.     newpath UPath1 uappend UPath2  uappend  [HPts (HOps)] infill  Hit
  98. endps
  99.  
  100.